home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmsl.dir / Internal_52_buildObjects.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  1.2 KB  |  55 lines
  1. property meSprite, mePlacedSprite, meLoc, refRect, meGroup
  2. global gmObject, autoMoveObject, sndObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   mePlacedSprite = sprite(me.spriteNum + 20)
  7.   meLoc = meSprite.loc
  8.   meGroup = integer(mePlacedSprite.member.name)
  9.   refRect = sprite(4).rect
  10. end
  11.  
  12. on mouseDown me
  13.   meSprite.locZ = 155
  14.   mPos = the mouseLoc - meLoc
  15.   repeat while the mouseDown
  16.     meSprite.loc = the mouseLoc - mPos
  17.     updateStage()
  18.   end repeat
  19. end
  20.  
  21. on mouseUp me
  22.   if meGroup = gmObject.actualGroup then
  23.     meSprite.locZ = me.spriteNum
  24.     if inside(meSprite.loc, refRect) then
  25.       sndObject.respondSnd(1, 8)
  26.       meSprite.member = member("dum", 2)
  27.       mePlacedSprite.loc = sprite(99).loc
  28.       updateStage()
  29.       gmObject.buildBoat(meGroup)
  30.       repeat while soundBusy(2)
  31.       end repeat
  32.       if the frameLabel <> "fail" then
  33.         sndObject.respondSnd(2, 4, 1, 1)
  34.       end if
  35.     else
  36.       autoMove(autoMoveObject, meSprite, meLoc)
  37.     end if
  38.   else
  39.     autoMove(autoMoveObject, meSprite, meLoc)
  40.     sndObject.respondSnd(2, 5, 1, 1)
  41.   end if
  42. end
  43.  
  44. on mouseEnter me
  45.   cursor([500, 501])
  46. end
  47.  
  48. on mouseLeave me
  49.   cursor(0)
  50. end
  51.  
  52. on endSprite me
  53.   cursor(0)
  54. end
  55.